home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / main.dir / 00352.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  1.2 KB  |  52 lines
  1. on initRearWindow
  2.   global rwObj, gMaxColors, deskTopPattern, black
  3.   if factory("RearWindow") = 0 then
  4.     openXLib("RearWindow.XObj")
  5.   end if
  6.   if objectp(rwObj) then
  7.     rwObj(mdispose)
  8.   end if
  9.   makeObjIfNeeded()
  10. end
  11.  
  12. on releaseRearWindow
  13.   global rwObj
  14.   if objectp(rwObj) then
  15.     rwObj(mdispose)
  16.   end if
  17.   closeXLib()
  18.   put " " into field "stage&Screen"
  19.   put " " into field "colorIndex"
  20. end
  21.  
  22. on makeObjIfNeeded
  23.   global rwObj
  24.   if not objectp(rwObj) then
  25.     set rwObj to RearWindow(mnew, "M")
  26.     if value(rwObj) < 0 then
  27.       alert("System error" && rwObj && "trying to create the RearWindow object in RAM (multiple-monitor config).")
  28.       stopMovie()
  29.       exit
  30.     end if
  31.     if the freeBlock < rwObj(mGetMemoryNeeded) then
  32.       if objectp(rwObj) then
  33.         rwObj(mdispose)
  34.         set rwObj to RearWindow(mnew, "S")
  35.       end if
  36.       if value(rwObj) < 0 then
  37.         alert("System error" && rwObj && "trying to create the RearWindow object in RAM (single-monitor config).")
  38.         stopMovie()
  39.         exit
  40.       end if
  41.     end if
  42.   end if
  43.   put rwObj
  44. end
  45.  
  46. on FillWithIndexColor
  47.   global rwObj
  48.   makeObjIfNeeded()
  49.   set patVar to 255
  50.   rwObj(mIndexColorToWindow, patVar)
  51. end
  52.